home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / +system+ / tools / expert / devguide / checkavolume < prev    next >
Text File  |  1999-01-25  |  2KB  |  55 lines
  1. ; CheckDevicesAtAnyVolume V2.01
  2. ; © 10/1998 by Heiko Schröder
  3. ; 2.01 keine Auflistung von ~(#?.info|#?.bak|#?.readme|#?.sig)
  4.  
  5. Echo "Device-Check at any Volume*NV2.01 © Heiko Schröder 11/98"
  6. Echo "The report will be written in RAM: and you can't stop the version scan!"
  7. Ask "Do you want to check your system for devices? (Y/N)"
  8. If NOT WARN=5
  9.    C:Quit
  10. EndIf 
  11.  
  12. C:FailAt 100
  13. C:Copy DVC RAM:
  14. C:Copy C:Search RAM:
  15. C:Copy Scripts/DeviceList.dvc RAM:
  16. C:Copy MyCheck RAM:
  17. C:Copy MyCheck.rexx RAM:
  18. C:Copy MyConvert.rexx RAM:
  19.  
  20. Echo "List of all your devices*N--------------------------*N" >Ram:Dev-List
  21. Echo "List of your old devices*N--------------------------*N" >Ram:Dev-OldList
  22. Echo "List of new devices*NPlease contact me: age@thepentagon.com*Nand send this file to me. Thanks.*N--------------------------" >Ram:Dev-NewList
  23. Echo "For DeviceGuide (01/99) I scan infos about your system:" >>Ram:Dev-NewList
  24. Version >>Ram:Dev-NewList
  25. C:CPU >>Ram:Dev-NewList
  26.  
  27. Echo "Starting Rexx"
  28. Sys:System/RexxMast
  29. rx MyDevice.rexx
  30.  
  31. If "$dev" EQ 0
  32.    Echo "Cancel"
  33.    Wait 2 secs
  34. else
  35.    Echo "Looking for Devices..."
  36.    C:List $dev PAT=#?.device~(#?info|#?bak|#?readme|#?sig) ALL quick nohead LFormat="Execute RAM:MyCheck %s%s" >Ram:List1
  37.  
  38.    Sort Ram:List1 Ram:List1
  39.  
  40.    Echo "Starting Check..."
  41.    Protect MyCheck +s
  42.    Execute Ram:List1
  43.    Echo "*N*NREADY!*NThe result can be found at Ram:Dev-OldList and Ram:Dev-NewList ..."
  44.    Echo "Please send me the RAM:Dev-NewList for updating the Device.guide."
  45. Endif
  46.  
  47. Delete Ram:List1 QUIET
  48. Delete Ram:DVC QUIET
  49. Delete Ram:Search QUIET
  50. Delete Ram:DeviceList.dvc QUIET
  51. Delete Ram:MyCheck QUIET
  52. Delete Ram:MyCheck.rexx QUIET
  53. Delete Ram:MyConvert.rexx QUIET
  54. Wait 10 secs
  55.